(PC-do-completion): Delete duplicates in the list of possible completions.

diff --git a/lisp/complete.el b/lisp/complete.el
index b56dc268c04145604be1ca0b678e718037a27e21..5b77f49ebdfe16613a6e5a08003f2323494b6990 100644 (file)
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -560,6 +560,9 @@ of `minibuffer-completion-table' and the minibuffer contents.")
                   (setq poss (cons (car p) poss))))
            (setq p (cdr p)))))
 
+      ;; If table had duplicates, they can be here.
+      (delete-dups poss)
+
       ;; Handle completion-ignored-extensions
       (and filename
            (not (eq mode 'help))